let fibo_iter =
  let rec aux m n k =
      if k = 0 then m
      else if k = 1 then n
      else (aux n (m + n) (k - 1))
  in
    (aux 0 1)
in
  (fibo_iter 27)
;;

	  
